home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / rbbs / rbbs_mpl.zip / MBS50705.MRG < prev    next >
Text File  |  1992-07-05  |  68KB  |  1,837 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against E:\RBBS\STOCK\RBBSSUB5.BAS to produce E:\RBBS\CHAT\RBBSSUB5.BAS
  3. * E:\RBBS\STOCK\RBBSSUB5.BAS:  Date 6-20-1992  Size 116575 bytes
  4. * ------------[ Created 07-05-1992 07:16:32 ]------------
  5. * REPLACING old line(s) by new
  6. ' $linesize:132
  7. ' $title: 'RBBSSUB5.BAS 17.4, Copyright 1986 - 92 by D. Thomas Mack'
  8. '  Copyright 1991 by D. Thomas Mack, all rights reserved.
  9. '  Name ...............: RBBSSUB5.BAS
  10. '  First Released .....: June 21, 1992
  11. '  Subsequent Releases.: 
  12. '  Copyright ..........: 1986 - 1992
  13. '  Purpose.............: The Remote Bulletin Board System for the IBM PC,
  14. '     RBBS-PC.BAS utilizes a lot of common subroutines.  Those that do not
  15. '     require error trapping are incorporated within RBBSSUB 2-5 as
  16. '     separately callable subroutines in order to free up as much
  17. '     code as possible within the 64K code segment used by RBBS-PC.BAS.
  18. '  Parameters..........: Most parameters are passed via a COMMON statement.
  19. '
  20. ' Subroutine  Line               Function of Subroutine
  21. '   Name     Number
  22. '  AddLink        63620  Adds a conference link
  23. * ------[ first line different ]------
  24. '  AskItems       63610  Get an list of items
  25. '  BinSearch      63520  Binary searches sorted file for a key value
  26. '  BreakFileName  63300  Break file name into component parts
  27. '  BufAsUnit      63500  Buffer out a string with CR's
  28. '  ChangeInit     63590  Get an integer value
  29. '  ChkAddedTime   63056  Check whether ok to extend time remaining
  30. '  ChkIfMsgHeader 63550  Checks whether record is a msg header
  31. '  DeLink         63620  Removes conference from linked ones
  32. '  DoorReturn     63100  Process door requests
  33. '  FdMacExe       63462  Executes a found macro
  34. '  FileSystem     20117  File System for RBBS-PC
  35. '  FindIt         63490  Check whether file exists and if so open as #2
  36. '  FormRead       63420  Read from file into a form
  37. '  LockAppend     63400  Prepare for a file append
  38. '  MacroExe       63460  Execute internal macro rather than user
  39. '  MarkItems      63600  Convert list of items into a "mark"
  40. '  MsgNameMatch   63540  Match name to one in msg header
  41. '  NextConf       63615  Sets up join to next conference link
  42. '  NoPath         63480  Detects whether string has a path in it
  43. '  RestoreCom     63310  Restore comm port after external program
  44. '  ReadMacro      63330  Read and process macro
  45. '  ReadParms      63490  Read certain number of parameters from file 2
  46. '  ReportEcho     63635  Reports echo preference of caller
  47. '  SayWelcome     63640  Welcomes callers on logon
  48. '  SetPrivileges  63650  Sets user privileges based on PASSWRDS
  49. '  SetPrompt      63470  Set prompts based on the user's security
  50. '  SetSessionTime 63645  Sets the session time
  51. '  SetSysOp       63625  Determines whether remote or global SysOp
  52. '  SetUserFlag    63560  Sets specified user flag
  53. '  SetUserPref    63630  Sets user preferences based on user record
  54. '  ShellExit      63320  Exit RBBS via shell
  55. '  SrchPasswrds   63652  Searches the PASSWRDS file
  56. '  TakeOffHook    63530  Take modem off hook
  57. '  TStats         69600  Display transfer stats from XFER-? file     ' MplXfer
  58. '  UnLockAppend   63410  Clean up after file append
  59. '  UnMarkItems    63610  Convert marked items into an input list
  60. '  VerifyAns      63510  Verify that string passes edits
  61. '  WildCard       63200  Match string to a pattern
  62. '
  63. '  $INCLUDE: 'RBBS-VAR.BAS'
  64. '
  65. * REPLACING old line(s) by new
  66. 20117 ' $SUBTITLE: 'FileSystem -- subroutine for RBBS-PC's file system'
  67. ' $PAGE
  68. '
  69. ' NAME    -- FileSystem
  70. '
  71. ' INPUTS  --       PARAMETER                 MEANING
  72. '             ZFileSysParm = 1  LIST THE SYSOP'S COMMENTS FILE
  73. '                                 2  L)IST DIRECTORY COMMAND
  74. '                                 3  D)OWNLOAD COMMAND
  75. '                                 4  RETURN FROM EXTERNAL PROTOCOLS
  76. '                                 5  U)PLOAD COMMAND
  77. '                                 6  S)CAN DIRECTORY COMMAND
  78. '                                 7  P)ERSONAL FILES COMMAND
  79. '                                 8  N)EW FILES COMMAND
  80. '                                 9  RETURN FROM EXTENDED DESCRIPTION
  81. * ------[ first line different ]------
  82. '                                 10  Batch Upload files
  83. '
  84. ' OUTPUTS -- ZFileSysParm = 1  COMMAND PROCESSED SUCCESSFULLY
  85. '                                2  RECYCLE TO TOP OF RBBS-PC (202)
  86. '                                3  PROCESS NEXT COMMAND (1200)
  87. '                                4  DENY USER ACCESS (1380)
  88. '                                5  HANDLE EXTENDED DESCRIP. (2008)
  89. '                                6  USER'S TIME EXCEEDED (10553)
  90. '                                7  Carrier DROPPED (10595)
  91. '
  92. ' PURPOSE -- To handle the RBBS-PC file system commands
  93. '
  94.       SUB FileSystem STATIC
  95.       ZFF = ZFileSysParm
  96.       ZFileSysParm = 1
  97.       ZActiveFMSDir$ = ""
  98.       CALL SaveUserActivity("F", ZNodeRecIndex, ZFalse)              ' CHAT0813
  99.       ON ZFF GOSUB 20119, _  ' HANDLER TO LIST COMMENTS TO SYSOP
  100.                   20150, _  ' L)IST DIRECTORY COMMAND HANDLER
  101.                   20180, _  ' D)OWNLOAD COMMAND HANDLER
  102.                   20263, _  ' RETURN FROM EXTERNAL Protocol'S
  103.                   20400, _  ' U)PLOAD COMMAND HANDLER
  104.                   21800, _  ' S)CAN DIRECTORY COMMAND HANDLER
  105.                   21850, _  ' P)ERSONAL FILES COMMAND HANDLER
  106.                   21860, _  ' N)EW FILES COMMAND HANDLER
  107.                   20705, _  ' RETURN FROM EXTENDED DESCRIPTIONS
  108.                   20410     ' 4)Batch Upload files
  109.       GOTO 21920
  110. * REPLACING old line(s) by new
  111. 20150 ZListDir = ZTrue
  112.       ListNew = ZFalse
  113.       SearchDate$ = ""
  114.       SearchString$ = ""
  115.       WasRS$ = ""
  116.       ShowDirOfDir = (ZLastIndex <= ZAnsIndex) AND NOT ZExpertUser
  117.       WasCK = 0
  118.       ZSearchingAll = ZFalse
  119. * ------[ first line different ]------
  120.       ZExtendedOff = ZTrue   'Pe 10/27/91
  121. * REPLACING old line(s) by new
  122. * ------[ first line different ]------
  123. 20155 IF ZDnldCompleted AND ZAutoEnd = 1 THEN _   'Pe 02/05/90
  124.         ZFileSysParm = 7: _
  125.         RETURN
  126.  IF ListNew OR ZAnsIndex > 255 THEN _   'Pe 12/12/91
  127.          RETURN                         'Pe 12/12/91
  128.       CALL GetDirs (ZFalse)    'Pe 02/04/90
  129.       IF ZWasQ = 0 THEN _
  130.          RETURN
  131.       ShowDirOfDir = ZFalse
  132.       CALL ConvertDir (ZAnsIndex)
  133.       WasQX = ZLastIndex
  134. * REPLACING old line(s) by new
  135. 20159 IF ZAnsIndex < ZLastIndex THEN _
  136.          GOTO 20155
  137.       ZSearchingAll = ZFalse
  138.       CALL CmdStackPushPop (1)
  139.       ZLastIndex = 0
  140.       IF ZNo OR InFMS OR (ZFileNameHold$ = ZDirPrefix$) THEN _
  141.          GOTO 20155
  142.       GOSUB 20178
  143.       CALL QuickTPut (ZEmphasizeOff$,0)
  144.       ZTurboKey = - ZTurboKeyUser
  145. * ------[ first line different ]------
  146. ZOutTxt$ = "End list.  L)ist, T)ype, V)iew, M)ark, D)nld, [Q]uit"     'Pe 05/30/91
  147.       GOSUB 21667
  148.       CALL AraAllCaps (ZUserIn$(),1)
  149. '******************************* Pe 02/15/90 **********************
  150.      IF ZUserIn$(1) = "T"  AND _
  151.          ZUserSecLevel >= ZOptSec(19 - 20 * (ZMenuIndex = 6)) THEN _
  152.          ZAnsIndex = 1 : _   
  153.         CALL TypeFile : _
  154.        RETURN
  155.      IF ZUserIn$(1) = "V"  AND _
  156.          ZUserSecLevel >= ZOptSec(19 - 20 * (ZMenuIndex = 6)) THEN _
  157.          ZAnsIndex = 1 : _   
  158.         CALL GetArc : _
  159.        RETURN
  160. '******************************************************************
  161.       IF ZUserIn$(1) = "L" THEN _
  162.          ZUserIn$(ZAnsIndex) = WasA1$ : _
  163.         GOTO 20161
  164.       Temp$ = ZUserIn$(1)
  165.       Temp = (ZUserIn$(1) = "D")
  166.       CALL AskItems ("MD",Temp$,ZTrue,"file",ZMarkedFiles$)
  167.       IF ZWasQ = 0 OR ZUserSecLevel < ZOptSec(19 - 20 * (ZMenuIndex = 6)) THEN _
  168.          GOTO 20160
  169.       IF Temp THEN _
  170.          GOSUB 20202 _
  171.       ELSE IF LEN(ZUserIn$(1)) > 1 THEN _
  172.          ZAnsIndex = 1 : _
  173.          GOSUB 20202
  174. * REPLACING old line(s) by new
  175. 20162 CALL CmdStackPushPop (1)         ' save dir list list processing
  176.       CALL FMS (ZWasZ$,SearchString$,SearchDate$,InFMS, _
  177.                 ZCategoryName$(),ZCategoryCode$(),ZCategoryDesc$(),_
  178.                 DnldFlag,CatFound,ZAnsIndex)
  179.       WHILE DnldFlag > 0 AND ZSubParm > -1
  180.          GOSUB 20202
  181.          IF ZFileSysParm > 1 THEN _
  182.             RETURN
  183. * ------[ first line different ]------
  184.         IF ZDnldCompleted and ZAutoEnd = 1 THEN _  'Pe 02/05/90
  185.            RETURN       ' AUTOLOGOFF MOD
  186.          WasX$ = ZCategoryCode$(CatFound)
  187.          CALL DispUpDir (WasX$,SearchString$,SearchDate$,DnldFlag,ZAnsIndex)
  188.          CALL CheckTimeRemain (MinsRemaining)
  189.          IF ZSubParm = -1 THEN _
  190.             ZFileSysParm = 6 : _
  191.             RETURN
  192.          CALL Carrier
  193.       WEND
  194.       IF ZSubParm = -1 THEN _
  195.          ZFileSysParm = 7 : _
  196.          RETURN
  197.       IF ZAnsIndex > 255 OR ZRet THEN _
  198.          ZLastIndex = 0 : _
  199.          RETURN
  200.       CALL CmdStackPushPop (2)        ' restore dir list list processing
  201.       ZActiveFMSDir$ = ""
  202.       IF InFMS THEN _
  203.          GOTO 20159
  204.       IF ZUserSecLevel < ZMinSecToView THEN _
  205.          IF ZFileNameHold$ = ZUpldDirCheck$ THEN _
  206.         ZOutTxt$ = "Listing of Upload Directory Available to SYSOP Only" : _ 'DGS-TXT
  207.         GOSUB 21640 : _                                           'DGS-TXT
  208.         ZNo = ZTrue : _                                           'DGS-TXT
  209.         GOTO 20155                                                'DGS-TXT
  210.       ZFileNameHold$ = ZUserIn$(ZAnsIndex)
  211.       IF ZLimitSearchToFMS THEN _
  212.          GOTO 20166
  213.       IF NOT ZSearchingAll THEN _
  214.          IF ZFileNameHold$ = "ALL" OR ZFileNameHold$ = "A" THEN _
  215.             ZSearchingAll = ZTrue : _
  216.             GOSUB 21890 : _
  217.             GOTO 20157
  218.       CALL BadFile (ZFileNameHold$,BadFileNameIndex)
  219.       ON BadFileNameIndex GOTO 20163,20172,20176
  220. * REPLACING old line(s) by new
  221. 20166 ZFileName$ = ZCurDirPath$ + _
  222.                    ZFileNameHold$ + ".MNU"
  223. * ------[ first line different ]------
  224.       CALL FindIt (ZFileName$)
  225.       IF ZOK THEN _
  226.          CALL BufFile (ZFileName$,ZAnsIndex) : _
  227.          GOTO 20155
  228.       IF ZAltdirExtension$ = "" THEN _
  229.          GOTO 20172
  230.       ZFileName$ = ZCurDirPath$ + _
  231.                    ZFileNameHold$ + _
  232.                    "." + _
  233.                    ZAltdirExtension$
  234.       CALL Graphic (ZFileName$)
  235.       IF NOT ZOK THEN _
  236.          GOTO 20172
  237. * REPLACING old line(s) by new
  238. 20202 IF (ZTimeLock AND 2) AND (NOT TimeLockExempt) AND NOT ZHasPrivDoor THEN _
  239.          CALL TimeLock : _
  240.          IF NOT ZOK THEN _
  241.             RETURN
  242.       LastDnld = ZLastIndex
  243.       FirstDnld = ZAnsIndex
  244.       ZCmdTransfer$ = ""
  245. * ------[ first line different ]------
  246.       ZAnsIndex = ZLastIndex
  247.       GOSUB 20470
  248.       LastDnld = LastDnld + (WasX > 0)
  249.       BatchBytes# = 0
  250.       BatchBlocks# = 0
  251.       ZDownFiles = 0
  252.       CALL KillWork (ZNodeWorkFile$)
  253.       ZErrCode = 0
  254.       ZAnsIndex = FirstDnld
  255. * REPLACING old line(s) by new
  256. 20205 MarkingTime = (ZAnsIndex = FirstDnld OR NOT ZConcatFIles)
  257.       ZFileName$ = ZUserIn$(ZAnsIndex)
  258. * ------[ first line different ]------
  259.       CALL AllCaps(ZFileName$)              'ANSIEd
  260.       CALL Remove (ZFileName$,", ")
  261.       ZViolation$ = "Download "
  262.       IF ZListOnly THEN _
  263.          CALL BreakFileName (ZFileName$,DR$,ZWasY$,WasX$,ZTrue) : _
  264.          ZFileNameHold$ = ZWasY$ + _
  265.                            WasX$ : _
  266.          GOTO 20235
  267.       ZFileNameHold$ = ZFileName$
  268.       TmpFileNameHold$ = ZFileNameHold$                            'Pe 04/25/92
  269.       CALL BadFile (ZFileName$,BadFileNameIndex)
  270.       ON BadFileNameIndex GOTO 20220,20231,20233
  271. * INSERTING new line(s)
  272. 20210 CALL RotorsDir (ZFileName$,ZSubDir$(),ZSubDirCount + _      'Pe 06/01/92
  273.                       ((ZUserSecLevel < ZMinSecToView) OR _       'Pe 06/01/92
  274.                        NOT ZCanDnldFromUp),MarkingTime,"D")       'Pe 06/01/92
  275.        RETURN                                                     'Pe 06/01/92 
  276. * REPLACING old line(s) by new
  277. * ------[ first line different ]------
  278. 20220 IF INSTR(ZFileName$,ZDefaultExtension$)= 0 Then             'Pe 06/04/92
  279.       GOSUB 20210                                                 'Pe 06/02/92
  280.       IF ZOK THEN _                                               'Pe 06/02/92
  281.         GOTO 20235                                                'Pe 06/02/92
  282.       IF ZDotFlag THEN _                                          'Pe 06/02/92
  283.          RETURN                                                   'Pe 06/02/92
  284.      End if                                                       'Pe 06/04/92
  285.          WasI = 1                                                 'Pe 06/01/92
  286. * DELETING old line(s)
  287. 20222
  288. * REPLACING old line(s) by new
  289. * ------[ first line different ]------
  290. 20225 CALL BreakFileName (ZFileName$,DR$,WasX$,Extension$,ZFalse) 'Pe 06/01/92
  291.         WasJ = INSTR(Mid$(ZCompressedExt$+". ",WasI),".")        'Pe 04/18/92
  292.        IF WasJ = 0 THEN _                                        'Pe 04/18/92
  293.           GOTO 20231                                             'Pe 06/04/92
  294.               Check$ = MID$(ZCompressedExt$,WasI,WasJ-1)         'Pe 04/28/92
  295.           WasI = WasI + WasJ                                     'Pe 04/18/92
  296.        ZFileName$ = WasX$ + "." + Check$                         'Pe 04/18/92
  297.       ZFileNameHold$ = ZFileName$                                'Pe 04/18/92
  298.      GOSUB 20210                                                 'Pe 06/01/92
  299.  IF ZOK THEN _                                                   'Pe 06/01/92
  300.        GOTO 20235                                                'Pe 06/01/92
  301.      IF ZDotFlag THEN _                                          'Pe 06/01/92
  302.         RETURN                                                   'Pe 06/01/92
  303.       GOTO 20225                                                 'Pe 06/01/92
  304. * REPLACING old line(s) by new
  305. * ------[ first line different ]------
  306. 20231 ZOutTxt$ = TmpFileNameHold$ + _                             'Pe 04/18/92
  307.            " not found!"
  308.       CALL UpdtCalr (ZOutTxt$,2)
  309.       ZOutTxt$ = ZOutTxt$ + _
  310.            " Correct name"+ZPressEnterExpert$
  311.       ZSuspendAutoLogoff = ZTrue
  312.       GOSUB 21660
  313.       ZSuspendAutoLogoff = ZFalse
  314.       IF ZFileSysParm > 1 THEN _
  315.          RETURN
  316.       IF ZWasQ=0 THEN _
  317.          IF ZBatchTransfer AND ZAnsIndex >= LastDnld THEN _
  318.             GOTO 20262 _
  319.          ELSE ZAutoLogOffReq = ZFalse : _
  320.               RETURN
  321.       ZUserIn$(ZAnsIndex) = ZUserIn$(1)
  322.       GOTO 20205
  323. * REPLACING old line(s) by new
  324. 20236 ZLine25$ = "(D) " + _
  325.                  ZWasZ$
  326. * ------[ first line different ]------
  327. '
  328. ' *  TEST FOR DOWNLOAD SECURITY
  329. '
  330.       CALL OpenWork (2,ZFileSecFile$)
  331.       IF ZErrCode = 53 THEN _
  332.          CALL UpdtCalr ("Missing file " + ZFileSecFile$,2) : _
  333.          GOTO 20247
  334. * REPLACING old line(s) by new
  335. 20244 IF ZUserSecLevel < VAL(ZWorkAra$(2)) THEN _
  336.          GOTO 20245
  337.       FilePswd$ = ZWorkAra$(3)
  338.       IF FilePswd$ = "" THEN _
  339.          GOTO 20247
  340. * ------[ first line different ]------
  341.       CALL AraAllCaps (ZUserIn$(),1)
  342.       IF ZUserIn$(1) = FilePswd$ THEN _
  343.          GOTO 20247
  344.       ZOutTxt$ = "Enter PASSWORD to download " + _
  345.            ZFileName$
  346.       GOSUB 21660
  347.       IF ZFileSysParm > 1 THEN _
  348.          RETURN
  349.       IF ZWasQ = 0 THEN _
  350.          RETURN
  351.       CALL AllCaps (ZUserIn$(1))
  352.       IF ZUserIn$(1) = FilePswd$ THEN _
  353.          GOTO 20247
  354. * REPLACING old line(s) by new
  355. 20247 ZWasDF = 0
  356.       CALL BreakFileName (ZFileName$,DR$,WasX$,Extension$,ZFalse)
  357. * ------[ first line different ]------
  358.  IF INSTR("...WRK.FW .ARC.EXE.COM.OBJ.WKS.LBR.ZIP.PAK.ZOO.ARJ.LZH.","."+Extension$+".") > 2 OR _
  359.          MID$(Extension$,2,1) = "Q" OR _
  360.          (ZRequireNonASCII AND Extension$ = "BAS") THEN _
  361.             ZWasDF = ZTrue
  362. * REPLACING old line(s) by new
  363. 20260 ZTransferFunction = 1
  364. * ------[ first line different ]------
  365.       ZWasBatchTransfer = ZFalse             'Pe 03/02/92
  366.       ZUpBatchTransfer = ZFalse              'Pe 03/02/92
  367.       GOSUB 21790
  368.       IF ZFileSysParm > 1 THEN _
  369.          RETURN
  370.          ZBatchTransfer = ZBatchProto                     'Pe Batch Mod
  371.       IF ZBatchTransfer AND ZCmdTransfer$ = "" THEN _
  372.          ZCmdTransfer$ = ZWasFT$
  373.       ON INSTR("AXCYN",ZInternalProt$) GOTO _
  374.          20340, _              ' ASCII DOWNLOAD
  375.          20290, _              ' Xmodem
  376.          20290, _              ' Xmodem CRC
  377.          20270, _              ' YMODEM
  378.          21700                 ' NONE - CANCEL
  379. '
  380. ' *  EXTERNAL Protocol Downloads/Uploads
  381. '
  382. * REPLACING old line(s) by new
  383. 20262 IF ZBatchTransfer THEN _
  384.          IF ZAnsIndex < LastDnld THEN _
  385.             RETURN _
  386.          ELSE ZBlocksInFile# = BatchBlocks# : _
  387.               ZBytesInFile# = BatchBytes# : _
  388.               ZNumDnldBytes! = BatchBytes# : _
  389.               IF ZBytesInFile# < 1 THEN _
  390.                  RETURN _
  391.               ELSE GOSUB 20780 : _
  392.                    IF ZFileSysParm > 1 OR NOT ZOK THEN _
  393.                       RETURN
  394. * ------[ first line different ]------
  395.          IF ZAbort THEN _
  396.             ZAbort = ZFalse : _              'Pe 01/26/92
  397.             ZDnldCompleted = ZFalse : _
  398.             GOSUB 21760 : _
  399.             RETURN
  400.       GOSUB 20337
  401.       CALL Transfer
  402. * REPLACING old line(s) by new
  403. 20263 IF ZPrivateDoor THEN _
  404.          ZCmdTransfer$ = ZWasFT$ : _
  405.          CALL XferType (2,ZTrue) : _
  406.          ZCmdTransfer$ = ""
  407.       CALL OpenWork (2,"XFER-" + ZNodeID$ + ".DEF")
  408.       IF ZErrCode <> 0 THEN _
  409.          GOTO 20267
  410.       CALL ReadParms (ZWorkAra$(), ZFailureParm, 1)
  411. * ------[ first line different ]------
  412.  
  413.       IF ZErrCode <> 0 THEN _
  414.          GOTO 20267
  415.       CLOSE 2
  416.       IF NOT ZFakeXRpt THEN _                  'Pe 03/26/92
  417.         Call TStats                            'Pe 03/26/92
  418.       CALL KillWork ("XFER-" + ZNodeID$ + ".DEF")
  419. * REPLACING old line(s) by new
  420. 20265 IF ZTransferFunction = 2 THEN _
  421.          IF INSTR(ZWorkAra$(ZFailureParm),ZFailureString$) <> 1 THEN _
  422.             GOTO 20700 _
  423.          ELSE GOTO 20730
  424.       IF ZTransferFunction = 1 THEN _
  425. * ------[ first line different ]------
  426.         ZDnldCompleted = (INSTR(ZWorkAra$(ZFailureParm),ZFailureString$) <> 1)  'Pe 05/30/91
  427.       GOSUB 21760
  428.       CALL Carrier
  429.       IF ZSubParm = -1 THEN _
  430.          ZFileSysParm = 7
  431.       RETURN
  432. '
  433. ' *  XFER FILE NOT Found
  434. '
  435. * REPLACING old line(s) by new
  436. * ------[ first line different ]------
  437. 20292 Call QuickTput1 (" Sorry NO internal Protocols available ") : _
  438.       Call Delaytime (3) : _
  439.       Return
  440. * DELETING old line(s)
  441. 20294
  442. * DELETING old line(s)
  443. 20325
  444. * REPLACING old line(s) by new
  445. * ------[ first line different ]------
  446. 20330 GOSUB 20337
  447.       ZOutTxt$ = ZProtoPrompt$ + _
  448.             " " + WasA1$ + _
  449.             " of " + _
  450.             ZFileNameHold$ + _
  451.             " ready.  <Ctrl X> aborts"
  452.       GOSUB 21650
  453.       RETURN
  454. * DELETING old line(s)
  455. 20335
  456. * REPLACING old line(s) by new
  457. 20340 IF ZWasDF THEN _
  458.          ZOutTxt$ = "Switch to a non-ascii protocol" : _
  459.          GOSUB 21650 : _
  460.          GOTO 21700
  461.       GOSUB 20750
  462.       IF ZFileSysParm > 1 OR NOT ZOK THEN _
  463.          RETURN
  464.       CALL OpenWork (2,ZFileName$)
  465.       IF (ZAnsIndex = FirstDnld OR NOT ZConcatFIles) THEN _
  466.          GOSUB 20337 : _
  467.          ZOutTxt$ = "^X aborts.  ^S suspends ^Q resumes" : _
  468.          GOSUB 21640 : _
  469.          IF ZFileSysParm > 1 THEN _
  470.             RETURN _
  471.          ELSE ZOutTxt$ = ZProtoPrompt$ + " SEND of " + _
  472.               ZFileNameHold$ + _
  473.               " ready. Press Any Key to start" : _
  474.          ZTurboKey = 2 : _
  475.          ZForceKeyboard = ZTrue : _
  476.          ZSuspendAutologoff = ZTrue : _
  477.          GOSUB 21660 : _
  478.          ZSuspendAutologoff = ZFalse : _
  479. * ------[ first line different ]------
  480.          IF ZFileSysParm > 1 THEN _
  481.             RETURN
  482. * REPLACING old line(s) by new
  483. 20380 ZStopInterrupts = ZFalse
  484.       WasTU = 0
  485.       SWAP WasTU,ZPageLength
  486.       CALL BufFile (ZFileName$,WasX)
  487.       SWAP WasTU,ZPageLength
  488.       ZNonStop = (ZPageLength < 1)
  489.       IF StopFile THEN _
  490. * ------[ first line different ]------
  491.          ZDnldCompleted = ZFalse : _   'Pe 05/29/91
  492.          GOTO 20390
  493. * REPLACING old line(s) by new
  494. 20385 ZDnldCompleted = ZTrue   'Pe 05/30/91
  495. * REPLACING old line(s) by new
  496. 20400 CALL TimeBack (1)
  497. * ------[ first line different ]------
  498.       ZUpBatchTransfer = ZFalse     'Pe 12/08/91
  499.       ZWasBatchTransfer = ZFalse
  500.       GOSUB 20420
  501.       ZAutoLogOffReq = 0
  502.       FirstUpld = ZAnsIndex
  503.       GOTO 20430
  504. * INSERTING new line(s)
  505. 20410 CALL TimeBack (1)
  506.       CALL KillWork (ZBatchWorkFile$)                 'Pe Batchup mod 
  507.       ZErrCode = 0
  508.       ZUpBatchTransfer = ZTrue
  509.       Call Killwork ("BatchUp" +ZNodeID$ +".LST")
  510.       ZErrCode = 0
  511.       ZAutoLogOffReq = 0
  512. '
  513. ' changes for 12/28/91
  514. '
  515. If LEN(ZUserIn$) < 3 Then _
  516.       CALL Batchit : _
  517.       FirstUpld = 2 : _
  518.       LastUpld = ZLastIndex : _
  519.       GOTO 20430
  520.      FirstUpld = ZAnsIndex
  521.     Goto 20430
  522.  
  523. * REPLACING old line(s) by new
  524. 20432 FOR ZAnsIndex = FirstUpld TO LastUpld
  525.          IndexSave = ZAnsIndex
  526.          GOSUB 20471
  527.          GOSUB 20435
  528.          FirstUpld = FirstUpld + 1
  529.          IF ZFileSysParm > 1 THEN _
  530.             IndexSave = LastUpld + 1
  531.          ZAnsIndex = IndexSave
  532. * ------[ first line different ]------
  533.      NEXT
  534.     ZCmdTransfer$ = ""
  535.       RETURN
  536. * REPLACING old line(s) by new
  537. 20435 ZFileNameHold$ = ZUserIn$(ZAnsIndex)
  538.       ExtSrch = ZFalse
  539.       IF INSTR(ZFileNameHold$,".") = 0 THEN _
  540.          ZFileNameHold$ = ZFileNameHold$ + "." + ZDefaultExtension$
  541.       CALL AllCaps(ZFileNameHold$)
  542.       ZFileName$ = ZFileNameHold$
  543.       ZViolation$ = "Upload "
  544.       CALL NoPath (ZFileName$,BadFileNameIndex)
  545.       IF BadFileNameIndex THEN _
  546.          GOTO 20451
  547.       CALL BadFile (ZFileName$,BadFileNameIndex)
  548.       ON BadFileNameIndex GOTO 20440,20451,20515
  549. * ------[ first line different ]------
  550. '
  551. ' Following mod was orig from DGS-UNW mod....updated for Maple code 12/15/91
  552. ' 
  553. * REPLACING old line(s) by new
  554. * ------[ first line different ]------
  555. 20440 TmpName$ = ZDirPath$+"NOTHANX.DEF"                         'Pe 06/01/92
  556.       CALL FindIt (TmpName$)                                        'DGS-UNW
  557.       IF ZOK THEN
  558.        CALL QuickTPut1 ("Checking to see if "+ZFileNameHold$ + " is in a list of Un-Wanted Files...")
  559.         CALL OpenWork (2,TmpName$)
  560.          HaveFile$ = ""
  561.           FileInList = ZFalse
  562.             WHILE NOT EOF(2) AND NOT FileInList
  563.          INPUT #2, HaveFile$
  564.         CALL AllCaps (HaveFile$)
  565.           FileInList = (INSTR(ZFileNameHold$,HaveFile$) > 0)
  566.      WEND
  567.        CLOSE 2
  568.       END IF
  569.      IF FileInList THEN _
  570.     GOTO 20443
  571. '
  572. ' If you want to eliminate either one of these routines just comment
  573. ' out the one you don't want....NOTHANX.DEF must reside in RBBS's Subdir
  574. ' the OFFLINE.DIR were your Master FMS dir is kept....you can change names
  575. ' as you see fit. 
  576. '                  !!DO NOT COMMENT OUT THE LINE NUMBER !!
  577. '
  578.  TmpName$ = ZDirPath$+"OFFLINE.DIR"                            'PE mode2 to
  579.        CALL FindIt (TmpName$)                                        'DGS-UNW
  580.         IF ZOK THEN
  581.           CALL QuickTPut1 ("Checking OFFLINE file list for "+ZFileNameHold$ )
  582.            CALL OpenWork (2,TmpName$)
  583.             HaveFile$ = ""
  584.              FileInList = ZFalse
  585.                WHILE NOT EOF(2) AND NOT FileInList
  586.                 LINE INPUT #2, HaveFile$                     'Pe 12/15/91
  587.                  CALL AllCaps (HaveFile$)
  588.                   StopReading = INSTR(HaveFile$,".")
  589.                    HaveFile$ = Left$(HaveFile$,StopReading)    'Pe 12/16/91
  590.                   Search = INSTR(ZFileNameHold$,".")
  591.                   Search$ = Left$(ZFileNameHold$,Search)
  592.                  If Search$ = HaveFile$ THEN_
  593.                 FileInList = ZTrue
  594.              WEND
  595.       CLOSE 2
  596.         END IF
  597. '
  598. '    next 2 lines
  599. '    Allow Sysop to update FMS listing with a local upload
  600. '    even if the filename exists in the NOTHANX.DEF OR OFFLINE.DIR
  601. '
  602. * INSERTING new line(s)
  603. 20443   If ZSysop Then _
  604.             FileinList = ZFalse            'Pe 12/15/91
  605.         IF FileInList THEN _
  606.            CALL BufFile (ZHelpPath$+"NOTHANX.MSG",WasX) : _  'Pe 06/01/92
  607.            CALL DelayTime (3) : _
  608.            GOTO 20453
  609.         CALL Carrier
  610.         IF ZSubParm = -1 THEN _
  611.            ZFileSysParm = 7 : _
  612.            RETURN
  613.       PersFile$ = ZFileName$                                     'Pe 08/09/91
  614.       ZFileName$ = ZPersonalDrvPath$ + PersFile$                 'Pe 08/08/91
  615.       Call FindFile (ZFileName$,ZOK)                             'Pe 08/09/91
  616.       IF ZOK THEN Goto 20452                                     'Pe 08/09/91
  617.       ZFileName$ = PersFile$                                     'Pe 08/09/91
  618.       CALL RotorsDir (ZFileName$,ZSubDir$(),ZSubDirCount,ZTrue,"U")
  619. * REPLACING old line(s) by new
  620. 20450 IF Extension$ <> Check$ THEN _
  621. * ------[ first line different ]------
  622.       CALL RotorsDir (WasX$ + "." + Check$,ZSubDir$(),ZSubDirCount,ZTrue,"U") : _
  623.          IF ZOK THEN _
  624.             ExtSrch = ZTrue : _
  625.             GOTO 20452
  626.       GOTO 20447
  627. * REPLACING old line(s) by new
  628. 20454 CALL QuickTPut1 ("Thanks, but we already have " + ZFileNameHold$)
  629. * ------[ first line different ]------
  630.       CALL DelayTime (3)  'Pe 08/04/91
  631.       PersFile$ = ""      'Pe 08/08/91
  632.       CALL UpdtCalr ("Upload duplicate " + ZFileNameHold$,1)
  633.       RETURN
  634. * REPLACING old line(s) by new
  635. 20455 ZOutTxt$ = "Add new directory entry (Y,[N])"
  636.       ZTurboKey = - ZTurboKeyUser
  637.       GOSUB 21660
  638.       IF ZFileSysParm > 1 THEN _
  639.          RETURN
  640.       IF NOT ZYes THEN _
  641.          RETURN
  642.       GOSUB 20460
  643.       IF WhoTo$ = "" THEN _
  644.          RETURN
  645.       AddingDescOnly = ZTrue
  646. * ------[ first line different ]------
  647.       ZWasBatchTransfer = ZFalse    'Pe 01/03/92
  648.       ZWasFT$ = "l"
  649. CALL UpdtUpload (ZCategoryName$(),ZCategoryCode$(),ZLinesInMsg,1) 'UPL-MOD pe082690
  650. 'Call AutoLogoff    'Pe 10/20/91 Test mod... remove when working
  651.       GOSUB 20702
  652.       RETURN
  653. * REPLACING old line(s) by new
  654. * ------[ first line different ]------
  655. 20460 CALL KillWork (ZNodeWorkFile$)      'Pe BatchUp
  656.       WhoTo$ = ""
  657.      IF ZUpBatchTransfer THEN _          'Pe 04/29/92
  658.       WhoTo$ = "ALL"                     'Pe 04/29/92
  659.       WasY$ = ZFileName$
  660.       IF ZUserSecLevel >= ZMinSecPersUpld THEN _
  661.          CALL SetWhoTo (ZTrue,WhoTo$,"",RcvrRecNum,Found) _
  662.       ELSE WhoTo$ = "ALL"
  663.       ZFileName$ = WasY$
  664.       RETURN
  665. * REPLACING old line(s) by new
  666. 20471 ZWasZ$ = ZUserIn$(ZAnsIndex)
  667.       CALL AllCaps(ZWasZ$)
  668.       WasX = 0
  669.       IF LEN (ZWasZ$) = 1 THEN _
  670.          WasX = INSTR(ZDefaultXfer$,ZWasZ$) : _
  671.          IF WasX > 0 THEN _
  672.             ZAnsIndex = ZAnsIndex + 1 : _
  673.             IndexSave = IndexSave + 1 : _
  674.             ZCmdTransfer$ = ZWasZ$ : _
  675. * ------[ first line different ]------
  676.             IF MID$(ZInternalEquiv$,WasX,1) = "N" THEN _
  677.                ZCmdTransfer$ = ""
  678.       RETURN
  679. * REPLACING old line(s) by new
  680. 20475 ZWasZ$ = ZUpldDriveFile$
  681.       CALL FindFree
  682.       IF VAL(ZFreeSpace$) < 4096 THEN _
  683.          GOSUB 21895 : _
  684.          IndexSave = ZLastIndex + 1 : _
  685.          RETURN
  686.       ZOutTxt$ = "Upload disk has" + _
  687.            ZFreeSpace$
  688.       GOSUB 21640
  689.       IF ZFileSysParm > 1 THEN _
  690.          RETURN
  691. * ------[ first line different ]------
  692.     GOSUB 20460                                                  'Pe 08/08/91
  693.       If ZMplPersUpload = ZTrue Then _                           'Pe 08/09/91
  694.       ZFileName$ = ZPersonalDrvPath$ + PersFile$                 'Pe 08/08/91
  695. '*****************
  696. CALL UpdtUpload (ZCategoryName$(),ZCategoryCode$(),ZLinesInMsg,1)  '<++++++
  697. '*****************
  698. * INSERTING new line(s)
  699. 20476 IF ZAbort THEN _     'Pe 09/07/91 added line number
  700.       ZAbort = ZFalse : _   'PE 12/14/88
  701.         RETURN
  702.       ZLine25$ = "(U) " + _
  703.                  ZFileNameHold$
  704.       ZSubParm = 2
  705.       CALL Line25
  706.       ZOutTxt$ = ""
  707.       ZOK = ZTrue
  708. * REPLACING old line(s) by new
  709. * ------[ first line different ]------
  710. 20500  ZTransferFunction = 2
  711.       GOSUB 21790
  712.       IF ZFileSysParm > 1 THEN _
  713.          RETURN
  714.       IF ZInternalProt$ = "N" THEN _                       'Pe 08/08/91
  715.          GOTO 21700                                        'Pe 08/08/91
  716. IF NOT ZUpBatchTransfer THEN _
  717. CALL AutoLogOff            'Pe 02/04/90
  718.       IF ZAutoEnd = 2 THEN _
  719.          RETURN
  720.       ON INSTR("AXCYN",ZInternalProt$) GOTO _
  721.          20560, _         ' ASCII UPLOAD
  722.          20542, _         ' Xmodem
  723.          20542, _         ' Xmodem CRC
  724.          20542, _         ' YMODEM
  725.          20735            ' NONE - CANCEL
  726.       GOTO 20261
  727. * REPLACING old line(s) by new
  728. * ------[ first line different ]------
  729. 20542 Call QuickTput1 ("Sorry NO Internal Protocols avaialble ") : _
  730.       Call Delaytime (3) : _
  731.       Return
  732. '
  733. ' *  ASCII UPLOAD
  734. '
  735. * REPLACING old line(s) by new
  736. 20700 GOSUB 21780
  737.       IF ZFileSysParm > 1 THEN _
  738.          RETURN
  739. * ------[ first line different ]------
  740. '
  741. '20702 IF ZWasFT$ = "l" THEN _          'Pe 12/28/91
  742. '         ZWasBatchTransfer = ZFalse    'Pe 12/28/91
  743. '
  744. 'Line number moved for Local Uploads    'Pe 01/03/91
  745. '
  746.       IF ZWasBatchTransfer Then _
  747.         CALL BatchUpload (ZDesc$,ZUCat$,2) : _
  748.         GOTO 20703
  749. * REPLACING old line(s) by new
  750. * ------[ first line different ]------
  751. 20702 CALL UpdtUpload (ZCategoryName$(),ZCategoryCode$(), ZLinesInMsg,2) 'Pe 02/03/90
  752. '
  753. * INSERTING new line(s)
  754. 20703 IF ZAutoEnd = 1 THEN _                'AUTO-UP MOD
  755.          ZFileSysParm = 7: _             'Pe BatchUp 09/12/91
  756.          ZDnldCompleted = ZTrue : _      'Pe BatchUp 09/12/91
  757.          RETURN                             'AUTO-UP MOD
  758.       IF NOT ZGetExtDesc THEN _
  759.          ZPrivateDoor = ZFalse : _
  760.          GOTO 20710
  761.       ZMsgHeader$ = "Extended Description for " + ZFileNameHold$
  762.       ZSysopComment = ZTrue
  763.       ZMaxMsgLines = ZMaxExtendedLines
  764.       WasLL = ZRightMargin
  765.       ZRightMargin = 30 + ZMaxDescLen
  766.       IF ZRightMargin > 74 THEN _
  767.          ZRightMargin = 74
  768.       ZFileSysParm = 5
  769.       RETURN
  770. * REPLACING old line(s) by new
  771. 20705 ZMaxMsgLines = ZMaxMsgLinesDef
  772.       ZRightMargin = WasLL
  773. * ------[ first line different ]------
  774.       CALL UpdtUpload (ZCategoryName$(),ZCategoryCode$(),ZLinesInMsg,3)  'Pe 02/04/90
  775. * REPLACING old line(s) by new
  776. 20730 GOSUB 21780
  777.       CALL QuickTPut1 ("Upload aborted")
  778. * ------[ first line different ]------
  779.       ZAutoLogoffReq = ZFalse                'Pe 10/20/91
  780.       ZWasBatchTransfer = ZFalse             'Pe 03/02/92
  781.       ZUpBatchTransfer = ZFalse              'Pe 03/02/92
  782.       LastUpld = 0
  783.       ZPrivateDoor = ZFalse
  784. * REPLACING old line(s) by new
  785. 20735 CALL KillWork (ZFileName$)
  786. * ------[ first line different ]------
  787.       IF ZErrCode <> 0 THEN _
  788.          ZWasEL = 20736 : _
  789.          GOTO 21900
  790.       ZAnsIndex = ZLastIndex + 1
  791.       IndexSave = ZAnsIndex
  792.       ZLastIndex = 0
  793.       RETURN
  794. '
  795. ' *  Sysop ABORTED UPLOAD
  796. '
  797. * REPLACING old line(s) by new
  798. 20791 CALL CheckTimeRemain (MinsRemaining)
  799.       IF ZSubParm = -1 THEN _
  800.          ZFileSysParm = 6 : _
  801.          RETURN
  802.       ZOK = ZTrue
  803.       Temp = ZExtraDnldTime
  804.       CALL ChkAddedTime (Temp)
  805.       Temp = MinsRemaining + Temp
  806.       ZWasA = INT(ZBlocksInFile# / 60) + 1
  807.       IF ZWasA <= Temp THEN _
  808.          GOTO 20793
  809. * ------[ first line different ]------
  810.       IF ZDownFiles < 2 THEN _
  811.          CALL AllCaps (ZFileNameHold$) : _
  812.          ZOutTxt$ = ZFileNameHold$ + " Not enough minutes left!  Need" _
  813.                  + STR$(ZWasA) + "  have" + STR$(Temp) : _
  814.          CALL UpdtCalr (ZOutTxt$,2) : _
  815.          CALL QuickTPut1 (ZOutTxt$) _
  816.       ELSE CALL OpenWork (2,ZNodeWorkFile$) : _
  817.            WHILE NOT EOF(2) : _
  818.               CALL ReadDir (2,1) : _
  819.               CALL BreakFileName (ZOutTxt$,DR$,ZWasY$,WasX$,ZTrue): _
  820.               ZFileName$ = ZWasY$ + WasX$ : _
  821.               ZOutTxt$ = ZFileName$ + " Not enough minutes left!  Need" _
  822.                          + STR$(ZWasA) + "  have" + STR$(Temp) : _
  823.               CALL UpdtCalr (ZOutTxt$,2) : _
  824.            WEND : _
  825.            CLOSE 2 : _
  826.            ZOutTxt$ = "Not enough minutes left!  Need"  _
  827.                        + STR$(ZWasA) + "  have" + STR$(Temp) : _
  828.            CALL QuickTPut1 (ZOutTxt$)
  829.       CALL DelayTime (3)
  830.       IF ZDownFiles < 2 THEN _
  831.          GOTO 20792
  832.       ZLastIndex = 0
  833.       ZOutTxt$ = "Edit files to download ([Y],N)"
  834.       ZTurboKey = - ZTurboKeyUser
  835.       GOSUB 21668
  836.       IF ZNo THEN _
  837.          LastDnld = 0 : _
  838.          GOTO 20792
  839.       Temp = 0
  840.       CALL OpenWork (2,ZNodeWorkFile$)
  841.       WHILE NOT EOF(2)
  842.          CALL ReadDir (2,1)
  843.          CALL BreakFileName (ZOutTxt$,DR$,ZWasY$,WasX$,ZTrue)
  844.          ZFileName$ = ZWasY$ + WasX$
  845.          ZOutTxt$ = "Download " + ZFileName$ + " (Y,[N])"
  846.          ZTurboKey = - ZTurboKeyUser
  847.          GOSUB 21668
  848.          IF ZYes THEN _
  849.             Temp = Temp + 1 : _
  850.             ZOutTxt$(Temp) = ZFileName$
  851.       WEND
  852.       CLOSE 2
  853.       ZAnsIndex = 1
  854.       ReStart = (Temp > 0)
  855.       LastDnld = Temp
  856.       ZLastIndex = Temp
  857.       FOR WasX = 1 TO Temp
  858.          ZUserIn$(WasX) = ZOutTxt$(WasX)
  859.       NEXT
  860. * REPLACING old line(s) by new
  861. 20793 IF ZRatioRestrict# > 0 THEN _
  862.          CALL QuickTPut1 ("New statistics will be") : _
  863.          CALL CheckRatio (ZTrue)
  864. * ------[ first line different ]------
  865.       CALL AutoLogoff
  866.       IF ZAutoEnd = 2 THEN _
  867.       ZOK = ZFalse
  868.       RETURN
  869. * REPLACING old line(s) by new
  870. 20851 ZWasY$ = ""
  871.       CALL CheckCarrier
  872.       IF ZSubParm = -1 THEN _
  873.          ZFileSysParm = 7 : _
  874.          RETURN
  875.       RETURN
  876. '
  877. * ------[ first line different ]------
  878. ' *  CHANGE TO 8 BIT FOR Xmodem
  879. '
  880. * DELETING old line(s)
  881. 20860
  882. 20900
  883. 20903
  884. 20920
  885. 20922
  886. 20930
  887. 20960
  888. 20970
  889. 20990
  890. * REPLACING old line(s) by new
  891. 20996 WasSO = 0
  892.       RETURN
  893. '
  894. * ------[ first line different ]------
  895. ' STANDARD ENTRY FOR RBBS-PC'S COMMON TERMINAL OUTPUT ROUTINE
  896. '
  897. ' Modeled on lines 12975 to 12983 in RBBS-PC.BAS
  898. * DELETING old line(s)
  899. 20999
  900. 21000
  901. 21020
  902. 21040
  903. 21050
  904. 21060
  905. 21070
  906. 21080
  907. 21090
  908. 21100
  909. 21110
  910. 21113
  911. 21120
  912. 21131
  913. 21145
  914. 21150
  915. 21170
  916. 21180
  917. 21190
  918. 21191
  919. 21200
  920. 21210
  921. 21212
  922. 21220
  923. 21225
  924. 21230
  925. 21240
  926. 21250
  927. 21280
  928. 21281
  929. 21300
  930. 21303
  931. 21350
  932. 21360
  933. 21380
  934. 21390
  935. 21410
  936. 21415
  937. 21420
  938. 21440
  939. 21443
  940. 21445
  941. 21450
  942. 21455
  943. 21460
  944. 21470
  945. 21480
  946. 21490
  947. 21503
  948. 21504
  949. 21510
  950. 21530
  951. 21531
  952. 21540
  953. 21545
  954. 21550
  955. 21560
  956. 21561
  957. * REPLACING old line(s) by new
  958. 21720 CALL LPrnt (WasD$,NumReturns)
  959.       RETURN
  960. '
  961. * ------[ first line different ]------
  962. ' * UPDATE DOWNLOAD STATISTICS
  963. '
  964. '  (formerly lines 50600 to 50614 in RBBS-PC.BAS
  965. * DELETING old line(s)
  966. 21750
  967. * REPLACING old line(s) by new
  968. 21760 GOSUB 21780
  969.       IF ZFileSysParm > 1 THEN _
  970.          RETURN
  971.       IF ZBatchTransfer THEN _
  972.          CALL LinesInFile (ZNodeWorkFile$,ZDownFiles) _
  973.       ELSE ZDownFiles = 1
  974. * ------[ first line different ]------
  975.       IF NOT ZDnldCompleted THEN _     'Pe 05/31/91
  976.          ZAutoLogoffReq = ZFalse : _
  977.          ZWasDF$ = " Aborted" : _
  978.          GOTO 21770
  979.       CALL LogPDown (ZPersonalDnld,1+ZAnsIndex-FirstDnld)
  980.       WasX = ((ZRatioRestrict# > 0) AND ZEnforceRatios AND ZFreeDnld)
  981.       IF NOT WasX THEN _
  982.          ZDnlds = ZDnlds + ZDownFiles : _
  983.          ZGlobalDLToday! = ZGlobalDLToday! + ZDownFiles : _
  984.          ZGlobalDnlds = ZGlobalDnlds + ZDownFiles : _
  985.          ZDLBytes! = ZDLBytes! + ZNumDnldBytes! : _
  986.          ZGlobalDLBytes! = ZGlobalDLBytes! + ZNumDnldBytes! : _
  987.          ZDLToday! = ZDLToday! + ZDownFiles : _
  988.          ZBytesToday! = ZBytesToday! + ZNumDnldBytes! : _
  989.          ZGlobalBytesToday! = ZGlobalBytesToday! + ZNumDnldBytes!
  990.       ZNumDnldBytes! = 0
  991.       ZWasDF$ = " Downloaded"
  992.       IF (ZAnsIndex = LastDnld OR NOT ZConcatFIles) THEN _
  993.          CALL SkipLine (1) : _
  994.          CALL QuickTPut1 ("Download successful")
  995.          IF WasX THEN _
  996.             CALL QuickTPut1 ("but not counted against ratios")
  997. * DELETING old line(s)
  998. 21768
  999. * REPLACING old line(s) by new
  1000. * ------[ first line different ]------
  1001. 21773 IF ZTransferFunction = 1 THEN
  1002.      CALL BreakFileName (ZFileName$,DR$,WasX$,Extension$,ZTrue)
  1003.       ZWasZ$ = WasX$ + _
  1004.            Extension$ + _
  1005.            ZWasDF$ + _
  1006.            " at " + _
  1007.            ZTime$ + _
  1008.            " using " + _
  1009.            ZWasFT$ + _
  1010.            STR$(ZBytesInFile#)
  1011.       CALL UpdtCalr (ZWasZ$,2)
  1012.    END IF
  1013.       IF ZBatchTransfer THEN _
  1014.          ZWasQ = ZWasQ - 1 : _
  1015.          GOTO 21772
  1016.       'CALL CheckRatio (ZFalse)
  1017. * REPLACING old line(s) by new
  1018. * ------[ first line different ]------
  1019. 21774  RETURN
  1020. '
  1021. '
  1022. ' *****   TURN ON INTERMEDIATE ECHO   ****
  1023. '
  1024. '  (formerly line 50620 in RBBS-PC.BAS
  1025. * REPLACING old line(s) by new
  1026. * ------[ first line different ]------
  1027. 21790  Call CheckCarrier                  'Pe 12/31/91
  1028.       IF ZSubParm = -1 THEN _             'Pe 12/31/91
  1029.          ZFileSysParm = 7 : _             'Pe 12/31/91
  1030.        Return                             'Pe 12/31/91
  1031.        IF ZEchoer$ = "I" THEN _
  1032.          CALL SetEcho ("R")
  1033.       RETURN
  1034. '
  1035. ' *****   DIRECTORY SEARCH   ****
  1036. '
  1037. '  (formerly lines 52900 to 52920 in RBBS-PC.BAS
  1038. * REPLACING old line(s) by new
  1039. 21820 WasRS$ = ZUserIn$(ZAnsIndex)
  1040.       WildSearch = (INSTR(WasRS$,"*") > 0 OR INSTR(WasRS$,"?") > 0)
  1041.       CALL AllCaps (WasRS$)
  1042.       IF RIGHT$(WasRS$,1) = "*" THEN _
  1043.          IF RIGHT$(WasRS$,2) <> ".*" THEN _
  1044.             WasRS$ = WasRS$ + ".*"
  1045.       SearchString$ = WasRS$
  1046.       SearchDate$ = ""
  1047.       ZJumpSearching = ZFalse
  1048.       WasA1$ = WasRS$
  1049. * ------[ first line different ]------
  1050.       ZExtendedOff = ZTrue       'Pe 10/27/91
  1051.       GOTO 21867
  1052. '
  1053. ' *****  P - personal download  ****
  1054. '
  1055. '  (formerly lines 52950 to 52952 in RBBS-PC.BAS
  1056. * REPLACING old line(s) by new
  1057. * ------[ first line different ]------
  1058. 21854 RETURN
  1059. '
  1060. ' *  WasN - COMMAND FROM FILES MENU (DISPLAY NEW FILES SINCE Last DIR DISPLAY)
  1061. '
  1062. '  (formerly lines 53000 to 53070 in RBBS-PC.BAS
  1063. * REPLACING old line(s) by new
  1064. 21866 SearchDate$ = WasRS$
  1065.       SearchString$ = ""
  1066.       ZJumpSearching = ZFalse
  1067. * ------[ first line different ]------
  1068.       ZExtendedOff = ZTrue             'Pe 10/27/91
  1069.       ZUserIn$(ZAnsIndex) = "A"
  1070.        ZEndList = ZTrue          'Pe 12/01/91
  1071.        GOTO 21871                'Pe NewFile mod
  1072. * REPLACING old line(s) by new
  1073. * ------[ first line different ]------
  1074. 21867 CALL GetDirs (ZFalse)
  1075.       IF ZWasQ = 0 THEN _
  1076.          RETURN
  1077. * REPLACING old line(s) by new
  1078. 21880 WasQX = ZAnsIndex
  1079.       GOSUB 20157
  1080.       IF ZFileSysParm > 1 THEN _
  1081.          RETURN
  1082.       ZAnsIndex = ZAnsIndex + 1
  1083.       IF ZAnsIndex <= ZLastIndex THEN _
  1084.          GOTO 21875
  1085.       ListNew = ZFalse
  1086. * ------[ first line different ]------
  1087.       ZEndList = ZFalse       'Pe 12/01/91
  1088.       SearchString$ = ""
  1089.       SearchDate$ = ""
  1090.       RETURN
  1091. * REPLACING old line(s) by new
  1092. 21900 IF ZDebug THEN _
  1093.          ZOutTxt$ = "RBBSSUB5 DEBUG Error Trap Entry ERL=" + _
  1094.               STR$(ZWasEL) + _
  1095.               " ERR=" + _
  1096.               STR$(ZErrCode) : _
  1097.          IF ZPrinter THEN _
  1098.             CALL Printit(ZOutTxt$) _
  1099.          ELSE CALL LPrnt(ZOutTxt$,1)
  1100.       IF ZWasEL = 20126 AND ZErrCode = 53 THEN _
  1101.          GOTO 20142
  1102.       IF ZWasEL = 20242 AND ZErrCode = 62 THEN _
  1103.          CALL UpdtCalr (ZFileSecFile$ + " bad format!",2) : _
  1104.          GOTO 20247
  1105.       IF ZWasEL = 20263 THEN _
  1106.          ZOutTxt$ = "<Download aborted>" : _
  1107. * ------[ first line different ]------
  1108.          ZDnldCompleted = ZFalse : _          'Pe
  1109.          GOTO 20390
  1110.       IF ZWasEL = 20560 AND ZErrCode = 67 THEN _
  1111.          GOTO 20451
  1112.       IF ZWasEL = 20560 AND ZErrCode = 70 THEN _
  1113.          IF VAL(ZFreeSpace$) > 1999 THEN _
  1114.             GOTO 20610 _
  1115.          ELSE GOSUB 21895 : _
  1116.               GOTO 21700
  1117.       IF ZWasEL = 20620 THEN _
  1118.          GOTO 20670
  1119.       IF ZWasEL = 20650 THEN _
  1120.          GOTO 20670
  1121.       IF ZWasEL = 20736 AND ZErrCode = 53 THEN _
  1122.          GOTO 21700
  1123. * REPLACING old line(s) by new
  1124. 63320 ' $SUBTITLE: 'ShellExit - sub to shell out from RBBS'
  1125. ' $PAGE
  1126. '
  1127. '  NAME    -- ShellExit
  1128. '
  1129. '  INPUTS  -- ShellTem$     String to invoke shell with
  1130. '
  1131. '  OUTPUTS -- none
  1132. '
  1133. '  PURPOSE -- Delay so that strings can finish printing.  Restore comm
  1134. '             port on return
  1135. '
  1136.       SUB ShellExit (ShellTem$) STATIC
  1137. * ------[ first line different ]------
  1138.       CALL DelayTime (4 + ZBPS)   'Pe 08/12/91
  1139.       IF NOT ZLocalUser THEN _
  1140.          IF ZFossil THEN _
  1141.             CALL FOSExit(ZComPort) _
  1142.          ELSE CLOSE 3 : _
  1143.               OUT ZModemCntlReg,INP(ZModemCntlReg) OR 1
  1144.       CLOSE 2
  1145.       CALL MetaGSR (ShellTem$,ZFalse)
  1146.       SHELL ShellTem$
  1147.       IF ZFossil THEN _
  1148.          IF NOT ZLocalUser THEN _
  1149.             CALL FOSinit(ZComPort,Result) : _
  1150.             IF Result = -1 THEN _
  1151.                CALL PScrn("ERROR INIT FOSSIL AFT EXTERNAL") : _
  1152.                SYSTEM
  1153.       CALL DelayTime (2)
  1154.       CALL RestoreCom
  1155.       END SUB
  1156. * REPLACING old line(s) by new
  1157. 63397 IF EOF(6) THEN _         ' Read next line in macro
  1158. * ------[ first line different ]------
  1159.               ZMacroActive = ZFalse _
  1160.       ELSE CALL ReadDir (6,1) : _
  1161.            ZMacroActive = (ZErrCode = 0)
  1162.       RETURN
  1163. * REPLACING old line(s) by new
  1164. 63400 ' $SUBTITLE: 'LockAppend - prepares for file append'
  1165. ' $PAGE
  1166. '
  1167. '  NAME    -- LockAppend
  1168. '
  1169. '  INPUTS  -- ZWasEN$            Name of file to append to
  1170. '
  1171. '  OUTPUTS -- none
  1172. '
  1173. '  PURPOSE -- Locks and opens file to append to
  1174. '
  1175.       SUB LockAppend STATIC
  1176. * ------[ first line different ]------
  1177. IF ZNetWorkType <> 0 Then _       'Pe 04/04/92
  1178.       WasBX = &H4 : _            'Pe 03/16/92
  1179.       ZSubParm = 9 : _           'Pe 03/16/92
  1180.       CALL FileLock
  1181.       ZErrCode = 0
  1182.       CALL OpenWorkA (ZWasEN$)
  1183.       END SUB
  1184. * REPLACING old line(s) by new
  1185. 63410 ' $SUBTITLE: 'UnLockAppend - cleans up after file append'
  1186. ' $PAGE
  1187. '
  1188. '  NAME    -- UnLockAppend
  1189. '
  1190. '  INPUTS  -- none
  1191. '
  1192. '  OUTPUTS -- none
  1193. '
  1194. '  PURPOSE -- Unlocks and close file appending to
  1195. '
  1196.       SUB UnLockAppend STATIC
  1197. * ------[ first line different ]------
  1198. IF ZNetWorkType <> 0 Then _       'Pe 04/04/92
  1199.       WasBX = &H4 : _            'Pe 03/16/92
  1200.       ZSubParm = 10 : _          'Pe 03/16/92
  1201.       CALL FileLock
  1202.       CLOSE 2
  1203.       END SUB
  1204. * REPLACING old line(s) by new
  1205. 63465 ' Forces a keyboard pause inside a macro
  1206.       SUB PauseExit STATIC
  1207.       ZSubParm = 4
  1208.       ZTurboKey = -ZTurboKeyUser
  1209. * ------[ first line different ]------
  1210.       ZOutTxt$ = ZMorePrompt$ + LEFT$(">",-1*ZExpertUser) + MID$("? : ",2*ZTurboKey+1,2) ' TC041610
  1211.       ZForceKeyboard = ZTrue
  1212.       ZNoAdvance = ZTrue
  1213.       CALL TPut
  1214.       ZLinesPrinted = 0
  1215.       ZUserIn$ = ""
  1216.       END SUB
  1217. * REPLACING old line(s) by new
  1218. 63470 ' $SUBTITLE: 'SetPrompt - sub to set prompts based on user security'
  1219. ' $PAGE
  1220. '
  1221. '  NAME    -- SetPrompt
  1222. '
  1223. '  INPUTS  -- PARAMETER           MEANING
  1224. '             ZBegMain          POSITION START OF MAIN CMDS
  1225. '             ZBegFile          POSITION START OF FILE CMDS
  1226. '             ZBegUtil          POSITION START OF UTIL CMDS
  1227. '             ZBegLibrary       POSITION START OF Library CMDS
  1228. '
  1229. '  OUTPUTS -- PRESENT.OPTS$         DISPLAY WHAT USER CAN DO (1st)
  1230. '             CALLERS.OPTS$         DISPLAY WHAT USER CAN DO (2nd)
  1231. '             ZMainOpts$            MAIN OPTS USER CAN DO
  1232. '             ZFileOpts$            FILE OPTS USER CAN DO
  1233. '             ZUtilOpts$            UTIL OPTS USER CAN DO
  1234. '             ZLibOpts$         Library OPTS USER CAN DO
  1235. '
  1236. '  PURPOSE -- Sets command line display of what user can do by
  1237. '             section and display of what all user can do
  1238. '
  1239.       SUB SetPrompt STATIC
  1240.       First = ZBegMain
  1241.       Last = ZBegFile - 1
  1242.       CALL SetOpts (ZMainOpts$,ZInvalidMainOpts$,First,Last)
  1243.       First = ZBegFile
  1244.       Last = ZBegUtil - 1
  1245.       CALL SetOpts (ZFileOpts$,ZInvalidFileOpts$,First,Last)
  1246.       First = ZBegUtil
  1247.       Last = ZBegLibrary - 1
  1248.       CALL SetOpts (ZUtilOpts$,ZInvalidUtilOpts$,First,Last)
  1249.       First = ZBegLibrary
  1250.       Last = ZBegLibrary + 6
  1251.       CALL SetOpts (ZLibOpts$,ZInvalidLibraryOpts$,First,Last)
  1252.       First = 50
  1253.       Last = 56
  1254.       CALL SetOpts (SysOpt$,ZInvalidSysOpts$,First,Last)
  1255.       First = 46
  1256.       Last = 49
  1257.       CALL SetOpts (GlobalOpts$,InvalidGlobalOpts$,First,Last)
  1258.       IF LEN(SysOpt$) > 0 THEN _
  1259.          ZSystemOpts$ = "Sysop: " + _
  1260.                         SysOpt$
  1261.       ZMainOpts$ = GlobalOpts$ + ZMainOpts$ + _
  1262.                    MID$(ZAllOpts$,INSTR(ZOrigCommands$,"G"),1)
  1263.       ZFileOpts$ = GlobalOpts$ + _
  1264.                    ZFileOpts$
  1265.       ZUtilOpts$ = GlobalOpts$ + _
  1266.                    ZUtilOpts$
  1267.       ZLibOpts$ = GlobalOpts$ + _
  1268.                       ZLibOpts$
  1269.       CALL SortString (SysOpt$)
  1270.       CALL SortString (ZMainOpts$)
  1271.       ZMainOpts$ = ZMainOpts$ + _
  1272.                    SysOpt$
  1273.       CALL SortString (ZFileOpts$)
  1274.       CALL SortString (ZUtilOpts$)
  1275.       CALL SortString (ZLibOpts$)
  1276.       CALL AddCommas (ZMainOpts$)
  1277.       CALL AddCommas (ZFileOpts$)
  1278.       CALL AddCommas (ZUtilOpts$)
  1279.       CALL AddCommas (ZLibOpts$)
  1280.       ZDirPrompt$ = "What directory(s) (" + _
  1281. * ------[ first line different ]------
  1282.          MID$("U)pload,A)ll,P)ers,L)ist,E)xtra,[Q]uit)",8 * (ZUserSecLevel => ZMinSecToView) + 9)
  1283.       ZQuitPromptExpert$ = "QUIT C,S, or to F,[M],U"
  1284.       ZQuitPromptNovice$ = "QUIT C)onference, S)ession or to section " + _
  1285.                             "F)ile, [M]ain, U)til"
  1286.       ZQuitList$ = "FMUS@C"
  1287.       IF ZUserSecLevel < ZOptSec(18) THEN _
  1288.          ZQuitPromptExpert$ = LEFT$(ZQuitPromptExpert$,23) : _
  1289.          ZQuitPromptNovice$ = LEFT$(ZQuitPromptNovice$,61) : _
  1290.          MID$(ZQuitList$,5) = " "
  1291.       IF ZUserSecLevel < ZOptSec(15) THEN _
  1292.          ZQuitPromptExpert$ = LEFT$(ZQuitPromptExpert$,22) + _
  1293.                                MID$(ZQuitPromptExpert$,25) : _
  1294.          ZQuitPromptNovice$ = LEFT$(ZQuitPromptNovice$,56) + _
  1295.                                MID$(ZQuitPromptNovice$,63) : _
  1296.          MID$(ZQuitList$,3,1) = " "
  1297.       IF ZUserSecLevel < ZOptSec(6) THEN _
  1298.          ZQuitPromptExpert$ = LEFT$(ZQuitPromptExpert$,16) + _
  1299.                                MID$(ZQuitPromptExpert$,19) : _
  1300.          ZQuitPromptNovice$ = LEFT$(ZQuitPromptNovice$,41) + _
  1301.                                MID$(ZQuitPromptNovice$,49) : _
  1302.          MID$(ZQuitList$,1,1) = " "
  1303.       CALL SetSection
  1304.       END SUB
  1305. * REPLACING old line(s) by new
  1306. 63540 ' Match Name to one in message file
  1307.       SUB ChkMsgName (MsgFromCaller,MsgToCaller) STATIC
  1308. * ------[ first line different ]------
  1309.      IF ZNewUserDGS THEN _                                        'DGS-NEW
  1310.         CALL MsgNameMatch ("NEWUSER",ZActiveUserName$,6,MsgFromCaller) : _      'DGS-NEW
  1311.         CALL MsgNameMatch ("NEWUSER",ZActiveUserName$,37,MsgToCaller) : _       'DGS-NEW
  1312.      Exit Sub
  1313.       IF NOT ZRemoteSysop THEN _
  1314.          WasX$ = LEFT$("SYSOP",-5*ZSysop) : _
  1315.          CALL MsgNameMatch (ZorigUserName$,ZActiveUserName$,6,MsgFromCaller) : _ 'Dgs-ALSMod
  1316.          CALL MsgNameMatch (ZorigUserName$,ZActiveUserName$,37,MsgToCaller)  : _    'Dgs-ALSMod
  1317.          EXIT SUB
  1318.       CALL MsgNameMatch ("SYSOP",ZSysopFullName$,6,MsgFromCaller)
  1319.       IF NOT MsgFromCaller THEN _
  1320.          CALL MsgNameMatch (ZOrigUserName$,"",6,MsgFromCaller)
  1321.       CALL MsgNameMatch ("SYSOP",ZSysopFullName$,37,MsgToCaller)
  1322.       IF NOT MsgToCaller THEN _
  1323.          CALL MsgNameMatch (ZOrigUserName$,"",37,MsgToCaller)
  1324.       END SUB
  1325.       SUB MsgNameMatch (PrimeName$,AltName$,SearchPos,Found) STATIC
  1326.       WasX$ = LEFT$(PrimeName$+"  ",22-8*(SearchPos < 7))
  1327.       GOSUB 63542
  1328.       IF Found OR AltName$ = "" THEN _
  1329.          EXIT SUB
  1330.       WasX$ = LEFT$(AltName$ + "  ",22-8*(SearchPos < 7))
  1331.       GOSUB 63542
  1332.       EXIT SUB
  1333. * REPLACING old line(s) by new
  1334. 63542 WasY$ = MID$(ZMsgRec$,SearchPos,LEN(WasX$))
  1335. * ------[ first line different ]------
  1336.       CALL SmartText(WasY$,ZFalse, OverStrike)        'SM091908
  1337.       CALL AllCaps(WasY$)                'SM091908
  1338.       WasY$ = LEFT$(WasY$,LEN(WasX$))            'SM091908
  1339.       ZWasDF = INSTR(WasY$,"@")
  1340.       IF ZWasDF > 0 THEN _
  1341.          MID$(WasY$,ZWasDF) = "      "
  1342.       Found = (WasY$ = WasX$)
  1343.       RETURN
  1344.       END SUB
  1345. * REPLACING old line(s) by new
  1346. 63625 ' * Sets SysOp security variables Formerly 5370 of rbbs-pc.bas
  1347.       ' * Returns ZWasA true when remote or global sysop
  1348.       SUB SetSysOp STATIC
  1349.       ZRemoteSysop = ((ZActiveUserName$ = ZSecretName$) OR _
  1350. * ------[ first line different ]------
  1351.                       (ZOrigUserName$ = ZSecretName$)) _
  1352.       OR _
  1353.       (ZActivUserName$ ="SYSOP")     'LK 12/05/91
  1354.       ZWasA = ZRemoteSysop
  1355.       ZGlobalSysop = (ZGlobalSysop OR (ZWasA AND ZOrigCnfg$ = ZConfigFileName$))
  1356.       IF ZGlobalSysop THEN _
  1357.          ZWasA = ZTrue
  1358.       END SUB
  1359. * REPLACING old line(s) by new
  1360. 63630 ' * Sets the user preferences based on user record.
  1361.       ' * Formerly in RBBS-PC.BAS
  1362.       SUB SetUserPref STATIC
  1363.       IF ZWasA THEN _
  1364.          ZUserSecLevel = ZSysopSecLevel _
  1365.       ELSE ZUserSecLevel = CVI(ZSecLevel$)
  1366.       ZBankTime = ASC(ZBankTime$)
  1367.       ZLastMsgRead = CVI(MID$(ZUserOption$,3,2))
  1368.       ZUserXferDefault$ = MID$(ZUserOption$,5,1)
  1369.       IF ZUserXferDefault$ = " " THEN _
  1370.          ZUserXferDefault$ = "N"
  1371.       CALL XferType (2,ZTrue)
  1372.       WasX = ASC(MID$(ZUserOption$,6,1))
  1373.       ZWasGR = (WasX MOD 3)
  1374.       ZBoldText$ = CHR$(48 - (WasX > 50))
  1375.       ZUserTextColor = (WasX - ZWasGR)/3 + 21
  1376.       IF ZUserTextColor > 37 THEN _
  1377.          ZUserTextColor = ZUserTextColor - 7
  1378.       IF ZEmphasizeOff$ <> "" THEN _
  1379.          CALL QuickTPut (ZColorReset$,0)
  1380.       IF ZEmphasizeOnDef$ <> "" THEN _
  1381.          ZEmphasizeOff$ = ZEscape$ + "[" + ZBoldText$ + ";40;" + MID$(STR$(ZUserTextColor),2) + "m" _
  1382.       ELSE ZEmphasizeOff$ = ""
  1383.       IF ZWasGR = 1 AND NOT ZEightBit THEN _
  1384.          ZWasGR = 0
  1385.       CALL SetGraphic (ZWasGR)
  1386.       ZRightMargin = CVI(MID$(ZUserOption$,7,2))
  1387.       IF ZRightMargin > 72 THEN _
  1388.          ZRightMargin = 72
  1389. * ------[ first line different ]------
  1390.            IF NOT ZConfMode THEN _
  1391.          ZWasCI$ = ZCityState$ : _
  1392.       CALL Trim (ZWasCI$)
  1393.       UserOptions = CVI(MID$(ZUserOption$,9,2))
  1394.       ZPromptBell = (UserOptions AND 1) > 0
  1395.       ZExpertUser = (UserOptions AND 2) > 0
  1396.       CALL SetExpert
  1397.       ZNulls = (UserOptions AND 4) > 0
  1398.       ZUpperCase = (UserOptions AND 8) > 0
  1399.       ZLineFeeds = (UserOptions AND 16) > 0
  1400.       ZCheckBulletLogon = (UserOptions AND 32) > 0
  1401.       ZSkipFilesLogon = (UserOptions AND 64) > 0
  1402.       ZFullScreenEditor = (UserOptions AND 128) > 0    'Pe 09/02/91
  1403.       ZReqQuesAnswered = (UserOptions AND 256) > 0
  1404.       ZMailWaiting = (UserOptions AND 512) > 0
  1405.       WasX = (UserOptions AND 1024 ) > 0
  1406.       CALL SetHiLite (NOT WasX)
  1407.       IF NOT ZHiLiteOff THEN _
  1408.          CALL QuickTPut (ZEmphasizeOff$,0)
  1409.       ZTurboKeyUser = (UserOptions AND 2048) > 0
  1410.       ZTurboKey = ZFalse
  1411.       ZFileWaiting = (UserOptions AND 4096) > 0
  1412.       CALL SetRegDisplay
  1413.       ZPageLength = ASC(MID$(ZUserOption$,13,1))
  1414.       IF ZSubBoard THEN _
  1415.          GOTO 63632
  1416.       WasX$ = ZEchoer$
  1417.       ZEchoer$ = MID$(ZUserOption$,14,1)
  1418.       IF INSTR("ICR",ZEchoer$) = 0 THEN _
  1419.          ZEchoer$ = "R"
  1420.       IF WasX$ <> ZEchoer$ THEN _
  1421.          CALL ReportEcho
  1422.       CALL SetEcho (ZEchoer$)
  1423. * REPLACING old line(s) by new
  1424. 63640 ' * Welcomes caller on
  1425.       SUB SayWelcome STATIC
  1426.       LOCATE 24,1
  1427.       CALL AMorPM
  1428.       ZUserLogonTime! = TIMER
  1429.       ZTimeLoggedOn$ = TIME$
  1430.       ZLinesPrinted = 0
  1431.       ZExpertUser = ZFalse
  1432.       CALL SetExpert
  1433.       ZOutTxt$ = ""
  1434.       IF ZMaxNodes > 1 THEN _
  1435.          ZOutTxt$ = " - Node " + ZNodeID$
  1436.       IF ZReliableMode THEN _
  1437.          ZOutTxt$ = ZOutTxt$ + " (Reliable)"
  1438. * ------[ first line different ]------
  1439. '      CALL QuickTPut1 ("Welcome to " + ZRBBSName$ + ZOutTxt$)  'Pe 06/26/92
  1440.       CALL TestANSI
  1441.       ZTestParity = ZTrue
  1442.       ZStopInterrupts = ZTrue
  1443.       ZFileName$ = ZPreLog$
  1444.       CALL FlushCom (WasX$)
  1445.       ZCommPortStack$ = ""
  1446.       END SUB
  1447. * REPLACING old line(s) by new
  1448. 63656 CALL GetPassword
  1449.       IF ZErrCode <> 0 THEN _
  1450.          CALL UpdtCalr (ZPswdFile$ + " bad format!",2) : _
  1451.          GOTO 63659
  1452.       IF MatchPass THEN _
  1453.          ZTempPassword$ = LEFT$(ZTempPassword$ + SPACE$(15),15) : _
  1454.          IF MatchPass$ <> ZTempPassword$ THEN _
  1455.             GOTO 63654 _
  1456.          ELSE IF ZUserSecLevel >= ZMinSecForTempPswd THEN _
  1457.                  GOTO 63658 _
  1458.               ELSE GOTO 63654
  1459. * ------[ first line different ]------
  1460.    IF ZUserSecLevel <> ZTempSecLevel OR ZTempPassword$ <> "" THEN _
  1461.          GOTO 63654
  1462.       IF ZStartTime = 0 THEN _
  1463.          GOTO 63658
  1464.       WorkTime$ = TIME$
  1465.       TestTime = VAL(LEFT$(WorkTime$,2) + MID$(WorkTime$,4,2))
  1466.       IF TestTime => ZStartTime AND TestTime <= ZEndTime THEN _
  1467.          GOTO 63658
  1468.       IF ZEndTime < ZStartTime THEN _
  1469.          IF TestTime => ZStartTime OR TestTime <= ZEndTime THEN _
  1470.             GOTO 63658
  1471.       GOTO 63654
  1472. * REPLACING old line(s) by new
  1473. 63675 SUB SetUserUpDn STATIC
  1474.       ZDnlds = CVI(ZUserDnlds$)
  1475.       ZUplds = CVI(ZUserUplds$)
  1476.       ZBankTime = ASC(ZBankTime$)
  1477.       IF ZEnforceRatios THEN _
  1478.          ZDLToday! = CVS(ZTodayDl$) : _
  1479.          ZBytesToday! = CVS(ZTodayBytes$) : _
  1480.          ZDLBytes! = CVS(ZDlBytes$) : _
  1481.          ZULBytes! = CVS(ZULBytes$)
  1482.       END SUB
  1483.       SUB SetGlobalUpDn STATIC
  1484.       IF NOT ZGlobalsSet THEN _
  1485.          ZGlobalsSet = ZTrue : _
  1486.          ZGlobalDnlds = ZDnlds : _
  1487.          ZGlobalUplds = ZUplds : _
  1488.          ZGlobalDLToday! = ZDLToday! : _
  1489.          ZGlobalBytesToday! = ZBytesToday! : _
  1490.          ZGlobalDLBytes! = ZDLBytes! : _
  1491.          ZGlobalULBytes! = ZULBytes! : _
  1492.          ZGlobalBankTime = ZBankTime
  1493.       END SUB
  1494. * ------[ first line different ]------
  1495. '
  1496. * REPLACING old line(s) by new
  1497. 63700 ' $SUBTITLE: 'TestANSI - test caller for ANSI support'
  1498. ' $PAGE
  1499. '
  1500. '  NAME    -- TestANSI
  1501. '                                  MEANING
  1502. '  INPUTS  -- ZTestANSITime   # of seconds to wait for ANSI response
  1503. '                             0 = do not test for ANSI
  1504. '
  1505. * ------[ first line different ]------
  1506. '  OUTPUTS -- ZANSITest       = ZTrue if ANSI detected               ' DD062801/ANSICHAT
  1507. '
  1508. '  PURPOSE -- Test callers' software for support of ANSI graphics
  1509. '
  1510.       SUB TestANSI STATIC
  1511.       IF ZTestANSITime < 1 THEN _
  1512.          GOTO 63705
  1513.       IF ZLocalUser THEN _
  1514.          IF ZDOSAnsi THEN _
  1515.             GOTO 63710 _
  1516.          ELSE GOTO 63705
  1517.       CALL QuickTPut1 ("Testing For ANSI support..."+ZCrLf$)  'Pe 09/26/91
  1518.       CALL FlushCom(Temp$)
  1519.       CALL PutCom (ZEscape$ + "[6n")
  1520.       CALL DelayTime(ZTestANSITime)
  1521.       CALL WipeLine (5)
  1522.       CALL FlushCom(Temp$)
  1523.       CALL WipeLine (5)
  1524.       Temp = INSTR(Temp$,ZEscape$ + "[")
  1525.       IF Temp > 0 THEN _
  1526.          Temp = INSTR(Temp,Temp$,"R") : _
  1527.          IF TEMP > 0 AND TEMP < 9 THEN _
  1528.             GOTO 63710
  1529. * REPLACING old line(s) by new
  1530. 63710 CALL SetGraphic(2)
  1531.       ZHiLiteOff = ZFalse
  1532. * ------[ first line different ]------
  1533.      CALL QuickTPut1 ("*ANSI Color  Detected*")
  1534.       ZANSITest = ZTrue                                              ' DD062801/ANSICHAT
  1535.       END SUB
  1536. * REPLACING old line(s) by new
  1537. 63720 SUB AraAllCaps (Ara$(1),WhichElement) STATIC
  1538.       Temp$ = Ara$(WhichElement)
  1539.       CALL AllCaps (Temp$)
  1540.       Ara$(WhichElement) = Temp$
  1541.       END SUB
  1542. * ------[ first line different ]------
  1543. '
  1544. '******************** INSERTED AutoLogoff here ******************
  1545. '
  1546. ' $SUBTITLE: 'AutoLogOff - Subroutine to  to log off after transfer'
  1547. ' $PAGE
  1548. '
  1549.   SUB AutoLogOff STATIC
  1550.  ZAutoEnd = 0
  1551.  ZAbort = ZFalse    'Pe 01/19/92
  1552.   IF ZGetExtDesc = ZTrue or ZOK = ZFalse or ZAutoLogOffReq = ZTrue THEN _
  1553.     EXIT SUB
  1554.  ZSubParm = 1
  1555. ZStackC = ZTrue    'Pe 12/21/91
  1556. * INSERTING new line(s)
  1557. 64989  ZStopInterrupts = ZTrue   'Pe 04/17/92
  1558. CALL BufFile(ZHelpPath$+"AUTOOFF.MNU",X)     ' MO 04/13/92
  1559. '      ZOutTxt$ = " C)ontinue with transfer " + ZCrLf$ + _
  1560. '                 " A)bort transfer - Cancel"+ ZCrLf$ + _
  1561. '                 " G)o ahead LOG-OFF after Transfer " + ZCrLf$ + _
  1562. '                 ZCrLf$ + "Press [Enter] to continue or select (C,A,G)->"
  1563. ZStopInterrupts = ZFalse    'Pe 04/17/92
  1564. ZOutTxt$ = "Select ([C],A,G) "
  1565.         ZTurboKey = -ZTurboKeyUser
  1566.       ZSubParm = 1
  1567.       Call TGet
  1568.       CALL AllCaps (ZUserIn$)
  1569.       WasMplx = INSTR("CAG",ZUserIn$)
  1570.       CALL Carrier                      'Pe 03/06/92
  1571.       IF ZSubParm = -1 THEN _           'Pe 03/06/92
  1572.       ZFileSysParm = 7 : _              'Pe 03/06/92
  1573.       EXIT SUB                          'Pe 03/06/92
  1574. IF ZUserIn$ = "" or ZUserIn$ = " " Then _
  1575.       GOTO 64995
  1576.    ON WasMplx GOTO 64995,64990,64998
  1577.       GOTO 64989
  1578. 64990 ZAutoEnd = 2
  1579.       Call Skipline (2)
  1580.       EXIT SUB
  1581. 64995 ZAutoEnd = 3
  1582.       Call Skipline (2)
  1583.       EXIT SUB
  1584. 64998 ZAutoEnd = 1
  1585.       Call SkipLine (2)
  1586.       END SUB
  1587. '
  1588. ' ****  S - COMMAND FROM UTILITY MENU (STATISTICS)  ***  'Pe 09/02/91
  1589. '
  1590. SUB Statistics (CallsToDate!,ActiveMessages,HighMsgNumber,HighestMsgRecord,CurUserCount,MaxMsgs) STATIC
  1591.       ActionFlag = ZTrue
  1592.       IF ZActiveMessageFile$ = ZPrevBase$ THEN _
  1593.         ActionFlag = ZFalse
  1594.      CALL QuickTPut1 ("RBBS-PC " + ZVersionID$ + " Node " + ZNodeID$)
  1595.      ZOutTxt$ = ""
  1596.      IF NOT ZConfMode THEN _
  1597.            ZOutTxt$ = "Caller Number................"+STR$(CallsToDate!) + "  "+ZCrLf$
  1598. ZOutTxt$ = ZOutTxt$ + "Active Messages.............."+STR$(ActiveMessages)+ZCrLf$
  1599. ZOutTxt$ = ZOutTxt$ + "Next Msg Number.............."+STR$(HighMsgNumber + 1)+ZCrLf$
  1600.      IF ZLastMsgRead > 0 THEN _
  1601.      ZOutTxt$ = ZOutTxt$ + "Last msg you read............" + STR$(ZLastMsgRead)+ZCrLf$ _
  1602.      ELSE ZOutTxt$ = ZOutTxt$ + "You Have NOT Read Any Messages Yet !" +ZCrLf$ : _
  1603.      ZNewUserDgs = Ztrue
  1604.      ZSubParm = 2
  1605.      CALL TPut
  1606. IF ZSubParm < 0 THEN _
  1607.          EXIT SUB
  1608.     ZWasZ$ = ZUpldDriveFile$
  1609.      CALL FindFree
  1610.      CALL QuickTPut1 ("Upload disk has" + ZFreeSpace$)
  1611.      CALL QuickTPut1 ( "Free String Space = "+  (STR$(CINT(FRE("A"))) + " bytes")) 'Pe 01/01/92
  1612.      CALL QuickTPut1 ( "StackSpace = "+  (STR$(CINT(FRE(-2))) + " bytes")) 'Pe 05/10/92
  1613.      IF (NOT ZSysop) AND (ZUserSecLevel < ZSecKillAny) THEN _
  1614.       CALL Delaytime (2) : _
  1615.         EXIT SUB
  1616.      UserWork = (ZHighestUserRecord * .95) + 1
  1617.      IF ZMsgsCanGrow THEN _
  1618.         ZWasY$ = " open" _
  1619.      ELSE ZWasY$ = STR$(HighestMsgRecord + 1 - ZMaxNodes - ZNextMsgRec)
  1620.      ZOutTxt$ = "USERS: used" + _
  1621.           STR$(CurUserCount - 1) + _
  1622.           " avl" + _
  1623.           STR$(UserWork - CurUserCount) + _
  1624.           "  MSGS: used" + _
  1625.           STR$(ActiveMessages) + _
  1626.           " avl" + _
  1627.           STR$(MaxMsgs - ActiveMessages) + _
  1628.           "  MSG REC: used" + _
  1629.           STR$(ZNextMsgRec - 1) + _
  1630.           " avl" + ZWasY$
  1631.      ZSubParm = 2
  1632.      CALL TPut
  1633. IF ZSubParm < 0 THEN _
  1634.    EXIT SUB
  1635. CALL DelayTime (2)
  1636. END SUB
  1637. '********************************************************************
  1638. '
  1639. SUB ShowUsrProfile STATIC
  1640.  CALL QuickTPut (CHR$(12),0) ' to clear screen
  1641. WasX$ =  "USER NAME : " + ZActiveUserName$ + ZCrLF$ + _
  1642.          "SECURITY  :" + STR$(ZUserSecSave) + ZCrLf$ + _
  1643.          "PASSWORD  : " + ZPswdSave$ + ZCrLF$ + _
  1644.          "READ MSG. :" + STR$(ZLastMsgRead)
  1645. Call QuickTput1 (WasX$)
  1646. WasX$ =  "TIMES ON  :" + STR$(ZTimesLoggedOn) +ZCrLF$ + _
  1647.          "Last ON   : " + ZLastDateTimeOnSave$ +ZCRLF$ + _
  1648.          "DownLoads :" + STR$(ZDnlds) + ZCrLF$ 
  1649. Call QuickTput1 (WasX$)
  1650. WasX$ =  "Uploads   :" + STR$(ZUplds)+ ZCrLf$ + _                'Pe 06/01/92
  1651.          "Baud Rate : " + ZCBaud$ + " Bps"                       'Pe 06/01/92
  1652. Call QuickTPut1 (WasX$)
  1653. WasX$ = "Dl-Bytes  :" + STR$(ZDLBytes!)+ZCrLF$ + _
  1654.         "Ul-Bytes  :" + STR$(ZULBytes!) +ZCrLF$ 
  1655. Call QuickTput1 (WasX$)
  1656. WasX$ = "User mode : " + MID$("NoviceExpert",1 -6 * ZExpertUser,6) +ZCrLf$ +_
  1657.         "Graphics  : " + MID$("None AsciiColor",GR * 5 + 1,5)
  1658. Call QuickTput1 (WasX$)
  1659. WasX$ = "Protocol  : " + ZUserXferDefault$ + ZCrLF$ + _
  1660.         "Upper Case: " + MID$("and lowerONLY", 1 - 9 * ZUpperCase,9)+ZCrLf$ + _
  1661.         "Line Feeds: " + FNOFFON$(ZLineFeeds) +ZCrLf$ + _
  1662.         "Nulls     : " + FNOFFON$(ZNulls)
  1663. Call QuickTPut1 (WasX$)
  1664.       IF ZRestrictByDate THEN _
  1665.      CALL QuickTPut ("EXPIRATION: " + ZExpirationDate$,1)
  1666.      CALL Toggle (-8)
  1667.      CALL Toggle (-5)
  1668.      CALL Toggle (-10)
  1669.      CALL Toggle (-2)
  1670.      CALL Toggle (-4)
  1671.      CALL Toggle (-1)
  1672. CALL AskMore ("",ZTrue,ZFalse,WasX,ZTrue)
  1673. END SUB
  1674. '********************************************************************
  1675. '
  1676. SUB BatchUpload (ZDesc$,ZUCat$,WasFF) STATIC
  1677. On WasFF GOTO 69000, 69500
  1678. 69000    CALL OpenWorkA ("BatchUp" +ZNodeID$ +".LST")
  1679.          Call PrintWorkA (ZFileName$)
  1680.          CALL PrintWorkA (ZFileNameHold$)
  1681.          CALL PrintWorkA (ZDesc$)
  1682.          CALL PrintWorkA (ZUcat$)
  1683.         Close 2
  1684.      CALL OpenWorkA (ZBatchWorkFile$) 
  1685.        CALL PrintWorkA (ZFileName$)
  1686.      Close 2
  1687. IF ZAnsindex = ZLastIndex THEN 
  1688.       ZUpBatchTransfer = ZFalse
  1689.       ZWasBatchTransfer = ZTrue
  1690.   End IF
  1691. Exit Sub
  1692. '
  1693. '
  1694. 69500 CALL KillWork (ZBatchWorkFile$)
  1695.       ZErrCode = 0
  1696.     Temp$ = "BatchUp" + ZNodeid$ + ".LST"
  1697.       CALL OpenWork (8,Temp$)
  1698.          While Not EOF(8)
  1699.        Line Input #8,ZFileName$
  1700.        Line Input #8,ZFileNameHold$
  1701.        Line Input #8,ZDesc$
  1702.        Line Input #8,ZUCat$
  1703.         Call Findit (ZFileName$)
  1704.     IF ZOK THEN _
  1705.       CALL UpdtUpload (ZCategoryName$(),ZCategoryCode$(), ZLinesInMsg,2) _
  1706.         Else CALL UpdtCalr (ZFileNameHold$ + " ABORTED during BatchUL",2) 
  1707.           ZWasBatchTransfer = ZFalse                  'Pe 09/12/91
  1708.          ZAlreadyGiven = ZTrue
  1709.        Wend
  1710.      Close 8
  1711. End Sub
  1712.  
  1713. 69600 ' $SUBTITLE: 'BATCHIT - subroutine to list files for batch downloading'
  1714. ' $PAGE
  1715. '
  1716.  SUB BATCHIT STATIC
  1717.       CALL PutCom (CHR$(7))
  1718.       CALL QuickTPUT ("Enter filenames on Separate lines! (EMPTY LINE ENDS )",1)
  1719.        ZWasB=1
  1720.        FOR BatchF = 2 TO 25
  1721.         ZOutTxt$ = "Name of file #" + STR$(Batchf-1)
  1722.         Call TGet
  1723.          IF ZUserIn$ = "" THEN GOTO 70415
  1724.           ZUserIn$(BatchF) = ZUserIn$
  1725.           ZAnsIndex = BatchF+1
  1726.         NEXT BatchF
  1727. 70415 BatchF =  BatchF-1
  1728.       ZLastIndex = BatchF
  1729.         End Sub
  1730. '
  1731. ' $SUBTITLE: 'TStat --- Display Transfer Stats from Xfer-? file'
  1732. ' $PAGE
  1733. '
  1734.       SUB TStats STATIC                                              ' MplXfer
  1735.       CALL OpenWork (2,"XFER-" + ZNodeID$ + ".DEF")                  ' MplXfer
  1736.       IF ZErrCode <> 0 THEN _
  1737.        Exit Sub                                                    'Pe 06/01/92
  1738.       CALL SkipLine (2)                                              ' MplXfer
  1739.       CALL QuickTPut1 (ZFG2$ + " Transfer Stats on this file were as Follows..." + ZCrLF$) ' MplXfer
  1740.       CALL QuickTPut1 (ZFG4$ + " FileName      Bytes  Dtr Rate    CPS      Errors " + ZCrLf$ + _ ' MplXfer
  1741.            ZFG3$ + "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" + ZEmphasizeOff$) ' MplXfer
  1742.       WHILE NOT EOF(2)                                               ' MplXfer
  1743.         LINE INPUT #2,Stat$                                          ' MplXfer
  1744.         WasS = INSTR(Stat$,"rs ")                                    ' MplXfer
  1745.         IF WasS > 0 THEN _                                           ' MplXfer
  1746.            WasX$ = MID$(Stat$, 2, WasS)                              ' MplXfer
  1747.         Match = INSTR(Stat$, ".")                                    ' MplXfer
  1748.         IF Match > 0 THEN _                                          ' MplXfer
  1749.            WasZyX$ = MID$(Stat$, Match - 8, 12)                      ' MplXfer
  1750.         Match = 0                                                    ' MplXfer
  1751.         Start = 1                                                    ' MplXfer
  1752.         DO                                                           ' MplXfer
  1753.           Match = INSTR(Start, WasZyX$, "\")                         ' MplXfer
  1754.           IF Match > 0 THEN _                                        ' MplXfer
  1755.              WasZyX$ = RIGHT$(WasZyX$, LEN(WasZyX$) - Match)         ' MplXfer
  1756.         LOOP WHILE Match                                             ' MplXfer
  1757.         Match = 0                                                    ' MplXfer
  1758.         Start = 1                                                    ' MplXfer
  1759.         DO                                                           ' MplXfer
  1760.           Match = INSTR(Start, WasZyX$, " ")                         ' MplXfer
  1761.           IF Match > 0 THEN _                                        ' MplXfer
  1762.              WasZyX$ = RIGHT$(WasZyX$, LEN(WasZyX$) - Match)         ' MplXfer
  1763.         LOOP WHILE Match                                             ' MplXfer
  1764.         WasXy = LEN(WasZyX$)                                         ' MplXfer
  1765.  
  1766.       IF ZErrCode <> 0 THEN _
  1767.        Exit Sub                                                    'Pe 06/01/92
  1768.  
  1769.      CALL QuickTPut1 (ZFG1$ + WasZyX$ + SPACE$(15-WasXy) + WasX$ + ZEmphasizeOff$) ' MplXfer
  1770.       WEND                                                           ' MplXfer
  1771.       CALL SkipLine (1)                                              ' MplXfer
  1772.       CLOSE 2                                                        ' MplXfer
  1773.       CALL DelayTime (3)                                             ' MplXfer
  1774.       END SUB                                                        ' MplXfer
  1775. '
  1776. ' $SUBTITLE: 'ShowBull --- Intitial Welcom screen displayed'
  1777. ' $PAGE
  1778. '
  1779.  Sub ShowBull STATIC
  1780. 71525 CALL SkipLine (2)
  1781.      WasX$ = ZFG1$+"Review System Screens Available:" + ZCrLf$ + _
  1782.              ZFG4$+"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
  1783. Call QuickTPut (WasX$,2)
  1784.      WasX$ = ZFG2$+"P)relog Screen"+ZCrLf$ + _
  1785.              ZFG3$+"W)elcome Screen" + ZCrLf$ + _
  1786.              ZFG4$+"O)nline News Screens"
  1787. Call QuickTPut (WasX$,1)
  1788.     WasX$ = ZFG1$+"Y)our Access Level" +ZCrLf$ + _
  1789.             ZFG2$+"N)ew User Sign-On" + ZCrLf$ + _
  1790.                   "[Q]uit"+ZEmphasizeOff$
  1791. Call QuickTPut (WasX$,2)
  1792. ZOutTxt$ = "Please make a Selection (P,W,O,Y,N,[Q]) "
  1793.         GOSUB 72999                     'Pe 04/25/92
  1794.         CALL AllCaps (ZUserIn$)
  1795.         WasMplX = INSTR("PWOYNQ",ZUserIn$)
  1796.         IF ZUserIn$ = "" THEN _
  1797.            GOTO 71596
  1798.     ON WasMplX GOTO 71530,71533,71536,71539,71541,71596
  1799. 71530 ZFileName$ = ZPreLog$
  1800.      GOTO 71550
  1801. 71533 ZFileName$ = ZWelcomeFile$
  1802.      GOTO 71550  
  1803. 71536 ZFileName$ = ZNewsFileName$
  1804.      GOTO 71550
  1805. 71539 ZFileName$ = "LG" + _
  1806.                  UserSecLevel$ + _
  1807.                  ".DEF"                 'Pe 06/01/92
  1808.      GOTO 71550
  1809. 71541 ZFileName$ = ZNewUserFile$
  1810. 71550 GOSUB 71790
  1811.      CALL AskMore ("",ZTrue,ZFalse,WasX,ZTrue)
  1812.      GOTO 71525
  1813. 71596 ZFileSysParm = 1
  1814.        Exit Sub
  1815. '
  1816. 71790 CALL Graphic (ZFileName$)
  1817.      CALL BufFile (ZFileName$,WasX)
  1818.      CALL Carrier
  1819.      IF ZSubParm = -1 THEN _
  1820.         ZFileSysParm = 7 : _
  1821.         Exit Sub
  1822.      RETURN
  1823.  
  1824. 72995 GOSUB 72997
  1825.       ZSubParm = 1
  1826. 72996 CALL TGet
  1827. 72997 IF ZSubParm < 0 THEN _
  1828.       ZFileSysParm = 7 :_
  1829.          Exit Sub
  1830.       RETURN
  1831. 72998 ZOutTxt$ = ZOutTxt$ + _
  1832.            ZPressEnter$
  1833.       GOTO 72995
  1834. 72999 ZTurboKey = -ZTurboKeyUser
  1835.       GOTO 72995
  1836. End Sub
  1837.